﻿Public Class Cliente
    Inherits Usuario


    Public Property Email As String
    Public Property NumeroTarjeta As String
    Public Property FechaCaducidad As Date

    Public Sub New(ByVal nombreCliente As String, ByVal contraseñaCliente As String, ByVal email As String, ByVal numeroTarjeta As String, ByVal fechaCaducidad As Date)
        MyBase.New(nombreCliente, contraseñaCliente)
        _Email = email
        _NumeroTarjeta = numeroTarjeta
        _FechaCaducidad = fechaCaducidad
    End Sub



End Class
